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COMPONENT ThrottleAgent 
BEGIN 

EUManager— >RegisterThrottleAgent(); 
While (EUManager->lsThrottllngRequiredQ) 
BEGIN 

EUList=EUManager->GetListOfEUs(self); 
ThrottlingLevels=EUManager— >GetThrottlingLevel(EUList); 
...apply ThrottlingLevel to EUs In EUList.... 
END 

EUManager— >DeregisterThrottleAgent() ; 
END 
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COMPONENT EU 
BEGIN 

...Initialization... 

EUManager— >RegisterEU(...args...); 

While(NOT Done) 
BEGIN 

...Do some work... 

ThrottlingLevel=EUManager— >GetThrottlingl_evel(self); 

Th rott I e (Th rott li n g Le ve I ) ; 

END 

...Termination... 

EUManager->DeRegisterEU(); 

END 
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FUNCTION Utility() 
BEGIN 

WHILE (NOT done) 
BEGIN 

...do some work... 
Throttle If Needed() 

END 

END 



(a) Inserting SIS point 



FUNCTION Throttle If Needed() 
BEGIN 

(workTime, sleepTime) = GetThrottlingl_evel() ; 
timeWorked = NowQ — workStart ; 
IF (timeWorked > workTime) 

SLEEP ( sleepTime ) ; 

workStart = Now() ; 
ENDIF 

END 



(b) SIS implementation 
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